home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d2 / rnco_mod.arc / RN.DEF < prev    next >
Encoding:
Text File  |  1988-04-28  |  3.6 KB  |  162 lines
  1. ;      lbtn,rtbtn,btbtn,lfmot,rtmot,upmot,dnmot,hsen,vsen
  2. BEGIN  LeftB,MidB,RightB,LeftM,RightM,UpM,DownM,190,40
  3.  
  4. ;------------- Left Button --------------
  5. ;-------- Popup Menu Selection ----------
  6. LeftB:    EXECUTE RETURN
  7.  
  8. ;------------ Middle Button -------------
  9. MidB: EXECUTE ESCAPE
  10.  
  11. ;------------ Right Button --------------
  12. RightB: EXECUTE ESCAPE
  13.  
  14. ;------------ Left Motion ---------------
  15. Leftm: EXECUTE LEFT
  16.  
  17. ;------------ Right Motion --------------
  18. RightM:  MATCH 12,52,03,"F2",MENU2,RightM1   ;"F2"
  19. RightM1: MATCH 12,52,03,"  ",MENU3,RightM2   ;"F2"
  20. RightM2: MATCH 12,52,NORMAL,"F2",MENU2,RightM3   ;"F2"
  21. RightM3: MATCH 12,52,NORMAL,"  ",MENU3,RightM4   ;"F2"
  22. RightM4: EXECUTE MAIN
  23.  
  24. ;------------ Up Motion -----------------
  25. UpM: EXECUTE UP
  26.  
  27. ;------------ Down Motion ---------------
  28. DownM: EXECUTE DOWN
  29.  
  30. ;------------- MAIN MENU ----------------
  31.  
  32. main: popup 4,50,BOLD
  33. text "╟Cancel this Menu"
  34. text "║Enter "
  35. ;text "║ F1   "
  36. text "║ F2   "
  37. text "║ F3   "
  38. text "║ F4   "
  39. text "║ F5   "
  40. text "║ F6   "
  41. text "║ F7   "
  42. text "║ F8   "
  43. text "║ F9   "
  44. text "║ F10  "
  45. text "║                             "
  46. text "║                             "
  47. text "║                             "
  48. text "║ESCAPE "
  49. text "║PgUp   - Previous Page       "
  50. text "║PgDn   - Next Page           "
  51. text "║Home   - Top of List         "
  52. text "║End    - Bottom of List      "
  53. text "║  LEFT Mouse Botton to Select"
  54. ;select  2, 2,29,F1
  55. select  1,2,29,NUL
  56. select  2,2,29,RETURN
  57. select  3,2,29,F2
  58. select  4,2,29,F3
  59. select  5,2,29,F4
  60. select  6,2,29,F5
  61. select  7,2,29,F6
  62. select  8,2,29,F7
  63. select  9,2,29,F8
  64. select 10,2,29,F9
  65. select 11,2,29,F10
  66. select 12,2,29,NUL
  67. select 13,2,29,NUL
  68. select 14,2,29,NUL
  69. select 15,2,29,ESCAPE
  70. select 16,2,29,PGUP
  71. select 17,2,29,PGDN
  72. select 18,2,29,HOME
  73. select 19,2,29,END
  74. pend
  75.  
  76. MENU2: popup 9,50,BOLD
  77. text "╟Cancel this menu             "
  78. text "║Enter"
  79. text "║     "
  80. text "║ F2  "
  81. text "║     "
  82. text "║     "
  83. text "║ F4  "
  84. text "║     "
  85. text "║     "
  86. text "║ESCAPE "
  87. text "║PgUp   - Previous Page       "
  88. text "║PgDn   - Next Page           "
  89. text "║Home   - Top of List         "
  90. text "║End    - Bottom of List      "
  91. text "║  LEFT Mouse Botton to Select"
  92. select  1,2,29,NUL
  93. select  2,2,29,RETURN
  94. select  3,2,29,NUL
  95. select  4,2,29,F2
  96. select  5,2,29,NUL
  97. select  6,2,29,NUL
  98. select  7,2,29,F4
  99. select  8,2,29,NUL
  100. select  9,2,29,NUL
  101. select 10,2,29,ESCAPE
  102. select 11,2,29,PGUP
  103. select 12,2,29,PGDN
  104. select 13,2,29,HOME
  105. select 14,2,29,END
  106. pend
  107. MENU3: popup 9,50,BOLD
  108. text "╟Cancel this menu             "
  109. text "║Enter"
  110. text "║     "
  111. text "║     "
  112. text "║     "
  113. text "║     "
  114. text "║ F4  "
  115. text "║     "
  116. text "║     "
  117. text "║ESCAPE "
  118. text "║PgUp   - Previous Page       "
  119. text "║PgDn   - Next Page           "
  120. text "║Home   - Top of List         "
  121. text "║End    - Bottom of List      "
  122. text "║  LEFT Mouse Botton to Select"
  123. select  1,2,29,NUL
  124. select  2,2,29,RETURN
  125. select  3,2,29,NUL
  126. select  4,2,29,NUL
  127. select  5,2,29,NUL
  128. select  6,2,29,NUL
  129. select  7,2,29,F4
  130. select  8,2,29,NUL
  131. select  9,2,29,NUL
  132. select 10,2,29,ESCAPE
  133. select 11,2,29,PGUP
  134. select 12,2,29,PGDN
  135. select 13,2,29,HOME
  136. select 14,2,29,END
  137. pend
  138. ;-------- KEY BOARD DEFINITIONS ---------
  139.  
  140. NUL:    NOTHING
  141. RETURN: TYPE 13
  142. ESCAPE: TYPE 27
  143. HOME:   TYPE 0,71
  144. END:    TYPE 0,79
  145. PGUP:   TYPE 0,73
  146. PGDN:   TYPE 0,81
  147. UP:     TYPE 0,72
  148. DOWN:   TYPE 0,80
  149. LEFT:   TYPE 0,75
  150. RIGHT:  TYPE 0,77
  151. F1:  TYPE 0,59
  152. F2:  TYPE 0,60
  153. F3:  TYPE 0,61
  154. F4:  TYPE 0,62
  155. F5:  TYPE 0,63
  156. F6:  TYPE 0,64
  157. F7:  TYPE 0,65
  158. F8:  TYPE 0,66
  159. F9:  TYPE 0,67
  160. F10: TYPE 0,68
  161.  
  162.